home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / ALT SHIFTUP SHIFTDOWN DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  339b  |  8 lines
  1. 1  REM  REQUIRES BLOCK ROUTINES $908B AND BLOCK SHAPE #144
  2. 5 YINCR = 2
  3. 10  HGR2 : CALL 37799: POKE 251,144
  4. 20  POKE 252,6: POKE 253,17: POKE 254,3: POKE 255,1: CALL 37679
  5. 25  POKE 227,YINCR: REM  SET YINCR
  6. 40  FOR X = 1 TO 170: CALL 37003: NEXT : REM  MOVE SHAPE DOWN
  7. 50  FOR X = 1 TO 170: CALL 37065: NEXT : REM  MOVE SHAPE UP
  8. 60  GOTO 40